<%
''Left to Right unmarkIt
'
'
'
'|
'
%>
<%
''''''''''''del for'''ltr align page''''''''''''''''''''''''''''
%>
|
<%
''''''''''''end'''del''ltr align page''''''''''''''''''''''''''''
%>
|
|
|
height=470>
|
|
|
|
|
|
|
|
|
|
<%
dim cpages2, rpages2, sqlpages2
set cpages2=server.createobject("adodb.connection")
cpages2.open DSN_NAME
sqlpages2="select * from pages"
set rpages2=server.createobject("adodb.recordset")
rpages2.open sqlpages2, cpages2, 3
if not rpages2.eof then
tmp_id = 0
cnt_top=0
while not rpages2.eof
cnt_top=cnt_top+1
if rpages2("active") = 1 and int(rpages2("page_id"))>9 then
if rpages2("blank_target")=0 then
blank_target = " "
else
blank_target = "target='blank'"
end if
if trim(rpages2("page_href"))=nil then
%>
|
|
|
|
|
<%
tmp_id=tmp_id+1
else
%>
|
|
|
|
|
| >
<%
tmp_id=tmp_id+1
end if
end if
rpages2.movenext
response.write " | "
wend
else
''''''''''''''''''''''''''
end if
%>
<%
'dim ctop, rtop, sqltop
'set ctop=server.createobject("adodb.connection")
'ctop.open DSN_NAME
''''dim siro2
''''siro2=""
'set rtop=server.createobject("adodb.recordset")
'sqltop="select * from top_categories order by top_category_id"
'rtop.open sqltop, ctop
'dim top_category_id
'dim cnt_top, top_catname
'cnt_top=1
'
'
'''''''''''''''''''initialize for getting cat id by top cat .
'dim csub, rsub, sqlsub
'set csub=server.createobject("adodb.connection")
'csub.open DSN_NAME
'set rsub=server.createobject("adodb.recordset")
'''''''''''''''end initialize for getting cat id by top cat .
'
'dim calcTop
'calcTop = 287
'do while not rtop.eof
'
'top_catname=rtop("top_category")
'top_category_id=rtop("top_category_id")
'
'sqlsub="select * from categories where top_category_id=" & top_category_id & " order by category_id"
'
'rsub.open sqlsub, csub,3
'
'if rsub.eof then
' category_id=0
' catname = ""
'else
' category_id=rsub("category_id")
' catname=rsub("category")
'end if
'
'
'cnt_top=cnt_top+1
'
%>
<%
'calcTop = calcTop + 23
'rtop.movenext
'cnt_top=cnt_top+1
'loop
'
'rtop.close
'set rtop=nothing
'ctop.close
'set ctop=nothing
'
'''rsub.close
'csub.close
'set rsub=nothing
'set csub=nothing
%>
|
|
|
|
|
|
|
|
|
|
|
|
<%
if show_spam = 1 then
%>
<%
end if
%>
|
<%
if is_online = "1" then
%>
<%
end if
%>
|
עמוד ראשי
מנהל מחובר
